# (decoded with TMPL 11972)
{----------}
Procedure DoPaste;
Begin
	if cur^.text <> nil then begin
		TEPaste (cur^.text);
	end;
End; {DoPaste}